PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Business/Time & Date Stuff/Ron's To Do/TO DO Archives/background_4023.txt

Text File | 1988-02-25 | 14.3 KB | 670 lines

-- background: 4023 from stack: in
-- bmap block id: 4326
-- flags: 0000
-- background id: 0
-- name: Reminder


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=229 top=21 right=44 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  -- confines cycling to this background only
  go to next card of this bkgnd
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=203 top=21 right=44 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to prev card of this bkgnd
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=259 top=19 right=47 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To To Do
----- HyperTalk script -----
on mouseUp
  SET HILITE OF BACKGROUND BUTTON ID 24 TO FALSE
  SET HILITE OF BACKGROUND BUTTON ID 25 TO FALSE
  SET HILITE OF BACKGROUND BUTTON ID 26 TO FALSE
  SET HILITE OF BACKGROUND BUTTON ID 27 TO FALSE
  go to first card
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=470 top=18 right=51 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 30696 / 30696
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial
----- HyperTalk script -----
on mouseUp
  get the selection
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=423 top=17 right=52 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 17481 / 17481
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Address
----- HyperTalk script -----
on mouseUp
  get the selection
  push card
  visual effect zoom open
  go to stack "Address"
  if it is not empty then find it
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=456 top=68 right=120 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  sort dateTime by field "FollowUpDate"
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=435 top=247 right=270 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Carry Over
----- HyperTalk script -----
on mouseUp
  -- adds one day to date field
  convert the date to seconds
  add (24*60*60) to it
  convert it to long date
  put it into field "FollowUpDate"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=436 top=277 right=300 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
on mouseUp
  if field "Completed" is not empty then
    beep
    exit mouseUp
  else put the abbr date & " at " & the time into field "Completed"
end mouseUp



-- part 9 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=135 top=63 right=79 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FollowUpDate
----- HyperTalk script -----
on closeField
  convert field "FollowUpDate" to long date
end closeField



-- part 10 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=97 top=82 right=98 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Abstract


-- part 11 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=36 top=135 right=291 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Detail


-- part 12 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=209 top=294 right=311 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DateCreated


-- part 13 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=209 top=314 right=331 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Completed


-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=455 top=312 right=342 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  play "harpsichord" tempo 200 "g6e e"
  answer "What'll it be?" with "Go Home" or "Quit" or "Cancel"
  if it = "go home" then
    go to card "good bye"
    go home
  end if
  if it = "quit" then
    domenu "quit hypercard"
    go to card "good bye"
  end if
end mouseUp




-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=448 top=136 right=171 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete card
----- HyperTalk script -----
on mouseUp
  push this card
  doMenu Copy Card
  set lockScreen to true
  go stack TO DO Archives
  go last card
  doMenu Paste Card
  pop card
  set lockScreen to false
  doMenu Delete Card
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=19 top=61 right=77 bottom=73
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Today's Date
----- HyperTalk script -----
on mouseUp
  Get the long date
  put it into field "FollowUpDate"
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=97 top=295 right=312 bottom=140
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Today's Date
----- HyperTalk script -----
on mouseUp
  Get the long date
  put it into field "DateCreated"
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=315 top=17 right=45 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Remember
----- HyperTalk script -----
on mouseUp
  go to last card of background "Reminder"
  doMenu New Card
  Get the long date
  put it into field "DateCreated"

end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=2 top=49 right=65 bottom=18
-- title width / last selected line: 0
-- icon id / first selected line: 16692 / 16692
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Inc+1
----- HyperTalk script -----
on mouseUp
  get line 1 of background field "followUpDate"
  put it into date1
  convert date1 to dateItems
  put item 3 of date1 + 1 into item 3 of date1
  convert date1 to long date
  put date1 into line 1 of background field "followUpDate"
end mouseUp




-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=2 top=75 right=91 bottom=18
-- title width / last selected line: 0
-- icon id / first selected line: 3584 / 3584
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dec-1
----- HyperTalk script -----
on mouseUp
  get line 1 of background field "followUpDate"
  put it into date1
  convert date1 to dateItems
  put item 3 of date1 - 1 into item 3 of date1
  convert date1 to long date
  put date1 into line 1 of background field "followUpDate"
end mouseUp





-- part 22 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=3 top=64 right=76 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: •
----- HyperTalk script -----
on mouseUp
  get line 1 of background field "followUpDate"
  put it into date1
  convert date1 to dateItems
  if the optionKey is down then
    put item 3 of date1 into changemo
    put item 3 of date1 - 7 into item 3 of date1
    if item 3 of date1 < 0 then
      put 0 into item 3 of date1
      convert date1 to long date
      put date1 into line 1 of background field "followUpDate"

      get line 1 of background field "followUpDate"
      put it into date1
      convert date1 to dateItems
      put item 3 of date1 - (7-changemo) into item 3 of date1
      convert date1 to long date
      put date1 into line 1 of background field "followUpDate"
    else
    end if
  else
    put item 3 of date1 + 7 into item 3 of date1
  end if
  convert date1 to long date
  put date1 into line 1 of background field "followUpDate"
end mouseUp




-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=208 top=5 right=18 bottom=226
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  SET HILITE OF BACKGROUND BUTTON ID 24 TO FALSE
  SET HILITE OF BACKGROUND BUTTON ID 25 TO FALSE
  SET HILITE OF BACKGROUND BUTTON ID 26 TO FALSE
  SET HILITE OF BACKGROUND BUTTON ID 27 TO FALSE
  GO CARD 1
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=229 top=5 right=18 bottom=247
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  SET HILITE OF BACKGROUND BUTTON ID 24 TO FALSE
  SET HILITE OF BACKGROUND BUTTON ID 25 TO FALSE
  SET HILITE OF BACKGROUND BUTTON ID 26 TO FALSE
  SET HILITE OF BACKGROUND BUTTON ID 27 TO FALSE
  GO CARD 2
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=250 top=5 right=18 bottom=268
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  SET HILITE OF BACKGROUND BUTTON ID 24 TO FALSE
  SET HILITE OF BACKGROUND BUTTON ID 25 TO FALSE
  SET HILITE OF BACKGROUND BUTTON ID 26 TO FALSE
  SET HILITE OF BACKGROUND BUTTON ID 27 TO FALSE
  GO CARD 3
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=271 top=5 right=18 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  SET HILITE OF BACKGROUND BUTTON ID 24 TO FALSE
  SET HILITE OF BACKGROUND BUTTON ID 25 TO FALSE
  SET HILITE OF BACKGROUND BUTTON ID 26 TO FALSE
  SET HILITE OF BACKGROUND BUTTON ID 27 TO FALSE
  GO CARD 4
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=374 top=16 right=44 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Finished
----- HyperTalk script -----
on mouseUp
  go to stack TO DO Archives
end mouseUp


-- part 29 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=97 top=101 right=117 bottom=125
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Priority


-- part 30 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=129 top=102 right=118 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: A
----- HyperTalk script -----
on mouseUp
  put "A" into field "Priority"
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=146 top=102 right=118 bottom=164
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: B
----- HyperTalk script -----
on mouseUp
  put "B" into field "Priority"
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=163 top=102 right=118 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: C
----- HyperTalk script -----
on mouseUp
  put "C" into field "Priority"
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=460 top=183 right=217 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp